

 1  TEXT : PRINT  CHR$ (4);"PR#0": HOME :P = 0:X = 20:Y = 38:A = 1:B = 1:K = 1
 2  VTAB 10: INVERSE : HTAB 15: PRINT " R2D3 CHASE ": NORMAL 
 3  VTAB 12: HTAB 6: PRINT "USE ARROWS TO OUTRUN ME..."
 4  HTAB 6: PRINT "I AM (X) YOU BE (_)"
 5  HTAB 6: PRINT "IF I CATCH YOU, ITS GAME OVER!"
 6  HTAB 6: PRINT "TRY TO MAKE IT PAST 500 POINTS!": POKE  49168,0
 7  HTAB 6: PRINT "KEYS: A,S,W,Z
 8  NN=PEEK(49152):IF  NN>128 THEN HOME:GOTO 10
 9  CALL 36100: GOTO 8
 10  CALL 36100: VTAB X: HTAB Y: PRINT " ": VTAB A: HTAB B: PRINT " "
 11 YY =  PEEK (49152)
 12  IF YY = 193 THEN Y = Y - 2
 13  IF YY = 215 THEN X = X - 2
 14  IF YY = 218 THEN X = X + 2
 15  IF YY = 211 THEN Y = Y + 2

 16  IF X < 4 THEN X = 4
 17  IF X > 22 THEN X = 22
 18  IF Y < 4 THEN Y = 4
 19  IF Y > 39 THEN Y = 39


 20  CALL 36100: VTAB X: HTAB Y: PRINT "_"
 21  IF A < X THEN A = A + K
 22  IF A > X THEN A = A - K

 23  IF B < Y THEN B = B + K
 24  IF B > Y THEN B = B - K

 25  IF A < 4 THEN A = 4
 26  IF A > 23 THEN A = 23

 27  IF B < 4 THEN B = 4
 28  IF B > 39 THEN B = 39
 29  VTAB A: HTAB B: PRINT "X"
 30  VTAB 1: HTAB 1: PRINT P:P = P + 1

 31  IF P > 500 THEN  GOTO 200
 32  CALL 36100: IF A = X THEN  GOTO 34
 33  GOTO 10
 34  IF B = Y THEN  GOTO 100
 35  GOTO 10
 100  HOME : PRINT "YOU LOST": GOTO 300
 200  HOME : PRINT "YOU WON!": GOTO 300
 300  PRINT "ANY KEY TO CONTINUE...": POKE  49168,0
 301  CALL 36100: YY=PEEK(49152):IF YY<128 GOTO 301
 302  GOTO 1

]